MacTech 1 to 12

home *** CD-ROM | disk | FTP | other *** search

/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.06 Jun 88 / Basic Source / basic.r next >

Wrap

Text File | 1988-05-10 | 4.0 KB | 361 lines | [TEXT/EDIT]

*ZBasic.R * Basic.RSRC ??????? Type ZBDK = STR ,0 © Demo by Dave Kelly \0Dver 1 JUN 1988 Type FREF ,128 APPL 0 Type BNDL ,128 ZBDK 0 ICN# 0 128 FREF 0 128 * ------ Multifinder events --------- * bit 15 = switcher save screen * bit 14 = accept suspend resume events * bit 13 = switcher enable option switch * bit 12 = can do background on null events * bit 11 = multifinder aware * (activates & deactivates topmost * window at resume, suspend events) Type SIZE = GNRL ,-1 .H 4000 ;; $4000 = bits 14 set .L 128000 ;; (for 150K recomended) .L 80000 ;; (for 80K minimum) .I Type ALRT ,1 (0) 80 80 205 400 1 7765 Type ALRT ,2 (0) 80 55 205 425 2 7765 Type ALRT ,3 (0) 80 55 205 425 3 7765 Type ALRT ,4 (0) 80 55 205 425 4 7765 Type ALRT ,5 (0) 30 250 82 502 5 7765 Type ALRT ,129 (0) 80 80 200 400 129 5555 Type ALRT ,130 (0) 80 80 200 400 130 7765 Type ALRT ,150 (0) 80 55 200 425 150 7765 Type ALRT ,152 (0) 80 80 200 400 152 7765 Type DITL ,1 (0) 5 Button 15 245 40 305 Ok staticText Disabled 55 10 70 290 ^0 staticText Disabled 72 10 87 290 ^1 staticText Disabled 89 10 104 290 ^2 staticText Disabled 106 10 121 290 ^3 Type DITL ,2 (0) 6 Button 15 295 40 360 Ok Button 55 295 80 360 Cancel staticText Disabled 55 10 70 290 ^0 staticText Disabled 72 10 87 290 ^1 staticText Disabled 89 10 104 290 ^2 staticText Disabled 106 10 121 290 ^3 Type DITL ,3 (0) 6 Button 15 295 40 360 Yes Button 55 295 80 360 No staticText Disabled 55 10 70 290 ^0 staticText Disabled 72 10 87 290 ^1 staticText Disabled 89 10 104 290 ^2 staticText Disabled 106 10 121 290 ^3 Type DITL ,4 (0) 6 Button 55 295 80 360 Cancel Button 15 295 40 360 Ok staticText Disabled 55 10 70 290 ^0 staticText Disabled 72 10 87 290 ^1 staticText Disabled 89 10 104 290 ^2 staticText Disabled 106 10 121 290 ^3 Type DITL ,5 (0) 4 Button 6 210 45 246 Ok staticText Disabled 10 65 25 205 ^0 staticText Disabled 26 65 41 130 At Line # staticText Disabled 26 130 41 205 ^1 Type DITL ,129 (0) 3 Button 15 245 40 305 OK staticText Disabled 48 10 64 300 ^0 staticText Disabled 66 10 82 320 ^1 Type DITL ,130 (0) 2 Button 15 245 40 305 OK staticText Disabled 48 10 64 300 Not Enough Memory! Type DITL ,150 (0) 5 Button 55 295 80 360 Stop Button 15 295 40 360 Continue staticText Disabled 48 10 62 290 ^0 staticText Disabled 66 10 80 290 ^1 staticText Disabled 84 10 98 290 ^2 Type DITL ,152 (0) 3 Button 15 245 40 305 Ok staticText Disabled 48 10 62 300 The Printer Driver Could not be Opened. staticText Disabled 66 10 80 300 You will not be able to print anything. * Menus * ,ID (attributes) * menu title (an Apple symbol is \ 14 in hex) * menu items, ( means it's initially disabled. * (- means a disabled line of dashes. * A trailing /Q, etc. means a command-key. Type MENU ,135 (0) Format Style /\1B!\88 Font /\1B!\89 Type MENU ,134 (0) File Quit Type MENU ,136 (0) Styles Bold/B Italic /I Underline /U Outline /O Shadow /S Type MENU ,137 (0) Fonts * A Window template * ,ID (attributes) * title * boundsrect (global Top, Left, Bottom, Right) * (In)Visible (No)GoAway * procid: window definition ID * refcon, for program's use. Type WIND ,29414 (0) Hierarchical Menu Sample 54 78 280 325 Visible NoGoAway 16 0 Type ICN# = GNRL ,128 (0) .H 0001 0000 0002 8000 0004 4000 0009 A000 0013 1000 0026 0800 004C 0400 0098 0200 0133 0100 0267 8080 04CE 4040 09A9 C020 1310 8010 26B8 0008 4C64 3F04 8822 4082 4015 8041 200B 3022 1005 C814 081E 7F8F 0402 3005 0201 0007 0100 8005 0080 6007 0040 1FE5 0020 021F 0010 0407 0008 0800 0004 1000 0002 2000 0001 4000 0000 8000 * 0001 0000 0003 8000 0007 C000 000F E000 001F F000 003F F800 007F FC00 00FF FE00 01FF FF00 03FF FF80 07FF FFC0 0FFF FFE0 1FFF FFF0 3FFF FFF8 7FFF FFFC FFFF FFFE 7FFF FFFF 3FFF FFFE 1FFF FFFC 0FFF FFFF 07FF FFFF 03FF FFFF 01FF FFFF 00FF FFFF 007F FFFF 003F FE1F 001F FC07 000F F800 0007 F000 0003 E000 0001 C000 0000 8000